unit math.category;

interface
uses
  SysUtils, Classes, IniFiles, sci.log, math.global, sci.types;

const
  MAX_SUBCATES = 100;
  MAX_CATEGORIES = 10;

type
  TCateHandle = function (data: TData): TData;  stdcall;
  TSubcate = record
    func: TCateHandle;
    caption, btnCaption: string;
  end;

  TCategory = record
    name: string;
    nrsub: integer;
    subcates: array [0..MAX_SUBCATES] of TSubcate;
  end;

var
  categories: array [0..MAX_CATEGORIES] of TCategory;

implementation

end.
